home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / djclock / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-06  |  2.3 KB  |  78 lines
  1. VERSION 5.00
  2. Begin VB.Form frmTest 
  3.    Caption         =   "Test DJClock Control"
  4.    ClientHeight    =   1815
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   3765
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   1815
  10.    ScaleWidth      =   3765
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin prjDJClock.DJClock DJClock1 
  13.       Height          =   360
  14.       Left            =   1125
  15.       TabIndex        =   2
  16.       Top             =   270
  17.       Width           =   1275
  18.       _ExtentX        =   2249
  19.       _ExtentY        =   635
  20.       TimeDate        =   1
  21.       AutoSize        =   -1  'True
  22.       AllBackColor    =   0
  23.       AllForeColor    =   255
  24.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  25.          Name            =   "MS Sans Serif"
  26.          Size            =   12
  27.          Charset         =   0
  28.          Weight          =   400
  29.          Underline       =   0   'False
  30.          Italic          =   0   'False
  31.          Strikethrough   =   0   'False
  32.       EndProperty
  33.       Text            =   "9:41:51 AM"
  34.       CtlBackColor    =   0
  35.       Enabled         =   0   'False
  36.       BorderStyle     =   1
  37.    End
  38.    Begin VB.CommandButton cmdStyle 
  39.       Caption         =   "Toggle Style"
  40.       Height          =   495
  41.       Left            =   585
  42.       TabIndex        =   1
  43.       Top             =   1035
  44.       Width           =   1020
  45.    End
  46.    Begin VB.CommandButton cmdChange 
  47.       Caption         =   "Change Colors"
  48.       Height          =   495
  49.       Left            =   2130
  50.       TabIndex        =   0
  51.       Top             =   1035
  52.       Width           =   1005
  53.    End
  54. Attribute VB_Name = "frmTest"
  55. Attribute VB_GlobalNameSpace = False
  56. Attribute VB_Creatable = False
  57. Attribute VB_PredeclaredId = True
  58. Attribute VB_Exposed = False
  59. Option Explicit
  60. Private Sub cmdChange_Click()
  61.   Dim intX As Integer
  62.   For intX = 1 To Len(DJClock1.Text)
  63.     With DJClock1
  64.       .ForeColor(intX) = QBColor(Rnd * 15)
  65.       .BackColor(intX) = QBColor(Rnd * 15)
  66.     End With
  67.   Next
  68. End Sub
  69. Private Sub cmdStyle_Click()
  70.   With DJClock1
  71.     .TimeDate = .TimeDate + 1
  72.     If .TimeDate > 2 Then .TimeDate = 0
  73.   End With
  74. End Sub
  75. Private Sub DJClock1_Click(Number As Integer)
  76.   DJClock1.BackColor(Number) = Me.BackColor
  77. End Sub
  78.